#!/usr/local/bin/perl
#
# Copyright 1993 University of Minnesota
#
# A simple Perl script that makes up part of a gopher+
# conferencing system/method that allows users to
# dynamically grow a section of gopherspace. This is
# done by taking advantage of gopher+ ask blocks.
#
# this section allows users to add to the dynamic document
# called the CB radio
#
#       Mark P. McCahill
#       March 1993


$Iusername = <>;
$Ipassword = <>;

# Make unsecure fields secure
$Iusername =~ m/^(.*)$/;
$username = $1;

$Ipassword =~ m/^(.*)$/;
$password = $1;


#return something to the user
print "0help me\tvoid.micro.umn.edu\t2100\t?\r\n";
print ".\r\n";

# nuke the .cache file
unlink ".cache";
unlink ".cache+";
